program DaemonLive;

uses
  Forms,
  Windows,
  DaemonLiveUnit in 'DaemonLiveUnit.pas' {frmDaemonLive},
  FunctionUnit in '..\..\..\FunctionUnit.pas',
  ConstUnit in '..\..\..\ConstUnit.pas';

{$R *.res}


var
  hMutex: THandle;

begin
  hMutex := CreateMutex(nil, False, PChar(WtDaemonLiveMutex));

  try
    if GetLastError = ERROR_ALREADY_EXISTS then
      Exit;
    Application.Initialize;
    Application.CreateForm(TfrmDaemonLive, frmDaemonLive);
    Application.Run;
  finally
    CloseHandle(hMutex);
  end;
end.
